PROGRAM Area;
TYPE
	rectangularType = RECORD length:REAL;width:REAL;END;

VAR
	re:rectangularType;

FUNCTION getArea(r:rectangularType): REAL;
BEGIN
	getArea:=r.length*r.width;
END;

BEGIN
	writeln('Input length:');
	readln(re.length);
	writeln('Input width:');
	readln(re.width);
	writeln('The area is ',getArea(re));
END.
